object Frame_Adres: TFrame_Adres
  Left = 0
  Top = 0
  Width = 438
  Height = 133
  TabOrder = 0
  TabStop = True
  object gbAdres: TGroupBox
    Left = 3
    Top = 4
    Width = 430
    Height = 126
    Caption = #1040#1044#1056#1045#1057
    TabOrder = 0
    DesignSize = (
      430
      126)
    object gbNAS_PUNKT: TGroupBox
      Left = 3
      Top = 14
      Width = 262
      Height = 107
      TabOrder = 0
      DesignSize = (
        262
        107)
      object Label1: TLabel
        Left = 11
        Top = 13
        Width = 106
        Height = 13
        Caption = #1053#1040#1057#1045#1051#1045#1053#1053#1067#1049' '#1055#1059#1053#1050#1058
      end
      object Label2: TLabel
        Left = 11
        Top = 56
        Width = 36
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = #1059#1051#1048#1062#1040
      end
      object cbNAS_PUNKT: TDBLookupComboBox
        Left = 11
        Top = 32
        Width = 169
        Height = 22
        DropDownRows = 15
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        KeyField = 'KOD_PUNKT'
        ListField = 'NAI_PUNKT'
        ListSource = dsNAS_PUNKT
        ParentFont = False
        TabOrder = 0
        OnClick = cbNAS_PUNKTClick
      end
      object cbVU: TDBLookupComboBox
        Left = 11
        Top = 75
        Width = 62
        Height = 22
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        KeyField = 'KOD_VU'
        ListField = 'NAI_VU'
        ListSource = dsVU
        ParentFont = False
        TabOrder = 1
        OnClick = cbVUClick
      end
      object cbUL: TDBLookupComboBox
        Left = 79
        Top = 75
        Width = 170
        Height = 22
        DropDownRows = 30
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        KeyField = 'KOD_UL'
        ListField = 'NAI_UL'
        ListSource = dsUL
        ParentFont = False
        TabOrder = 2
        OnClick = cbULClick
      end
    end
    object gbDom: TGroupBox
      Left = 271
      Top = 14
      Width = 154
      Height = 53
      Anchors = [akLeft, akBottom]
      Caption = #1044#1054#1052
      TabOrder = 1
      object Label3: TLabel
        Left = 80
        Top = 21
        Width = 40
        Height = 13
        Caption = #1050#1086#1088#1087#1091#1089':'
      end
      object dbeDOM: TDBEdit
        Left = 9
        Top = 18
        Width = 40
        Height = 22
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnKeyDown = dbeDOMKeyDown
      end
      object dbeBUKVA_D: TDBEdit
        Left = 55
        Top = 18
        Width = 23
        Height = 22
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnKeyDown = dbeBUKVA_DKeyDown
      end
      object dbeKORPUS: TDBEdit
        Left = 126
        Top = 18
        Width = 24
        Height = 22
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnKeyDown = dbeKORPUSKeyDown
      end
    end
    object gbKv: TGroupBox
      Left = 271
      Top = 73
      Width = 102
      Height = 48
      Anchors = [akLeft, akBottom]
      Caption = #1050#1042#1040#1056#1058#1048#1056#1040
      TabOrder = 2
      object dbeKV: TDBEdit
        Left = 9
        Top = 18
        Width = 32
        Height = 22
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnKeyDown = dbeKVKeyDown
      end
      object dbeBUKVA_KV: TDBEdit
        Left = 47
        Top = 18
        Width = 26
        Height = 22
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
  end
  object dsNAS_PUNKT: TIBCDataSource
    DataSet = dsetNAS_PUNKT
    Left = 232
    Top = 24
  end
  object dsVU: TIBCDataSource
    DataSet = dsetVU
    Left = 232
    Top = 56
  end
  object dsUL: TIBCDataSource
    DataSet = dsetUL
    Left = 232
    Top = 88
  end
  object dsetNAS_PUNKT: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      
        'select SP.KOD_PUNKT,SP.NAI_PUNKT  from SP_PUNKT SP order by SP.K' +
        'OD_PUNKT')
    Left = 192
    Top = 24
  end
  object dsetVU: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select DISTINCT VU.KOD_VU,VU.NAI_VU from SP_ADRES SA, SP_VU VU '
      ' where SA.KOD_PUNKT=:PUNKT'
      #9' AND SA.KOD_VU=VU.KOD_VU')
    Left = 192
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PUNKT'
      end>
  end
  object dsetUL: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select SU.KOD_UL,SU.NAI_UL from SP_ADRES SA, SP_UL SU '
      #9' where SA.KOD_PUNKT=:PUNKT'
      #9' AND SA.KOD_VU=:VU'
      #9' AND SA.KOD_UL=SU.KOD_UL')
    Left = 192
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PUNKT'
      end
      item
        DataType = ftUnknown
        Name = 'VU'
      end>
  end
end
